home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / BIZOTCH1.ZIP / events.ini < prev    next >
INI File  |  1997-02-17  |  7KB  |  206 lines
  1. [Events]
  2. n0=1:ON ACTION:*:?: {
  3. n1=  if $away == $true {
  4. n2=    if %recmsgs == on {
  5. n3=      write $mircdirtext\awaylog.txt $chr(91) $+ $time $+ $chr(93) [action in] [ $+ $nick $parms $+ ]
  6. n4=    }
  7. n5=  }
  8. n6=  set %relm [action in] [ $+ $nick $parms $+ ] [ $+ $address $+ ]
  9. n7=  set %lastmsg $nick
  10. n8=  if %msg == bizotch {
  11. n9=    bmecho [action in] [ $+ $nick $parms $+ ]
  12. n10=  }
  13. n11=}
  14. n12=1:ON ACTION:*:#: {
  15. n13=  echo $chan  $+ %acolor $+ *  $+ %template [ $+ [ %acolor ] ] $+  $+ $nick $+  $+ %acolor $parms
  16. n14=  halt
  17. n15=}
  18. n16=1:ON INVITE:#: {
  19. n17=  brecho Press F4 to join.
  20. n18=  set %invitechan $chan
  21. n19=}
  22. n20=1:ON TEXT:*:?: {
  23. n21=  if $away == $true {
  24. n22=    if %recmsgs == on {
  25. n23=      write $mircdirtext\awaylog.txt $chr(91) $+ $time $+ $chr(93) [ $+ $nick $+ [msg in]] $chr(91) $+ $parms $+ $chr(93)
  26. n24=    }
  27. n25=  }
  28. n26=  set %relm [ $+ $nick $+ [msg in]] [ $+ $parms $+ ] [ $+ $address $+ ]
  29. n27=  set %lastmsg $nick
  30. n28=  if %msg == bizotch {
  31. n29=    bmecho [ $+ $nick $+ [msg in]] [ $+ $parms $+ ]
  32. n30=  }
  33. n31=  if $parm1 == xdcc {
  34. n32=    if $parm2 == help { goto help }
  35. n33=    xdcctext $nick $parms
  36. n34=  }
  37. n35=  if $parm1 == invite {
  38. n36=    if %friendlist == on {
  39. n37=      if friend isin $level($address($nick,3)) {
  40. n38=        brecho $nick has self-invited to $parm2 $+ .
  41. n39=        invite $nick $parm2
  42. n40=        ignore -ptu10 $nick 3
  43. n41=        halt
  44. n42=      }
  45. n43=      if $address($nick,3) == $null {
  46. n44=        set %icheck on
  47. n45=        set %ichannel $parm2
  48. n46=        .raw whois $nick
  49. n47=        ignore -ptu10 $nick 3
  50. n48=      }
  51. n49=    }
  52. n50=    halt
  53. n51=  }
  54. n52=  if $parm1 == pass {
  55. n53=    if %opslist == on {
  56. n54=      if op isin $level($address($nick,3)) {
  57. n55=        brecho $nick has set a password.
  58. n56=        set %pass [ $+ [ $address($nick,3) ] ] $parm2*
  59. n57=        .raw notice $nick :Password set to ' $+ $parm2* $+ '
  60. n58=        halt
  61. n59=      }
  62. n60=    }
  63. n61=  }
  64. n62=  if $parm1 == op {
  65. n63=    if %opslist == on {
  66. n64=      if op isin $level($address($nick,3)) {
  67. n65=        if $parm3* == %pass [ $+ [ $address($nick,3) ] ] {
  68. n66=          brecho $nick has successfully requested ops for $parm2 $+ .
  69. n67=          mode $parm2 +o $nick
  70. n68=          halt
  71. n69=        }
  72. n70=      }
  73. n71=    }
  74. n72=  }
  75. n73=  halt
  76. n74=  :help
  77. n75=  ignore -ptu10 $nick 3
  78. n76=  brecho XDCC HELP request from $nick
  79. n77=  .raw notice $nick :XDCC commands can either be /msg or /ctcp and are as follows:
  80. n78=  .raw notice $nick :XDCC HELP <-- what you are reading now.
  81. n79=  .raw notice $nick :XDCC LIST <-- gives you a complete offer listing
  82. n80=  .raw notice $nick :XDCC SEND #N <-- I will send pack N to you. (N must be the number of the pack)
  83. n81=  halt
  84. n82=}
  85. n83=1:ON NOTICE:*:*: {
  86. n84=  set %reln [ $+ $nick $+ [notice in]] [ $+ $parms $+ ] [ $+ $address $+ ]
  87. n85=  set %temp Please op the bot
  88. n86=  if %temp isin $parms {
  89. n87=    ignore -nu500 $nick
  90. n88=  }
  91. n89=}
  92. n90=1:ON WALLOPS:*: {
  93. n91=  brecho < $+ $nick $+ /WallOp> $parms
  94. n92=  halt
  95. n93=}
  96. n94=1:ON CTCPREPLY:PING*: {
  97. n95=  %temp = $ctime - $parm2
  98. n96=  set %relcr [ $+ $nick $+ [CTCP reply]] [[ $+ $parm1 $+ ] $duration(%temp) $+ ] [ $+ $address $+ ]
  99. n97=  brecho CTCP Reply from $nick: ( $+ $parm1 $+ ) $duration(%temp)
  100. n98=  halt
  101. n99=}
  102. n100=1:ON CTCPREPLY:*: {
  103. n101=  set %relcr [ $+ $nick $+ [CTCP reply]] [[ $+ $parm1 $+ ] $parm2* $+ ] [ $+ $address $+ ]
  104. n102=  brecho CTCP Reply from $nick: ( $+ $parm1 $+ ) $parm2*
  105. n103=  halt
  106. n104=}
  107. n105=1:ON NOTIFY: {
  108. n106=  set %notify on
  109. n107=  .raw whois $nick
  110. n108=  halt
  111. n109=}
  112. n110=1:ON JOIN:#: {
  113. n111=  if shit isin $level($address($nick,3)) {
  114. n112=    if %skb == yes {
  115. n113=      if %reason [ $+ [ $address($nick,3) ] ] == $null {
  116. n114=        skb $chan $nick requested
  117. n115=        halt
  118. n116=      }
  119. n117=      skb $chan $nick %reason [ $+ [ $address($nick,3) ] ]
  120. n118=      halt
  121. n119=    }
  122. n120=  }
  123. n121=  if friend isin $level($address($nick,3)) {
  124. n122=    if %fannounce == yes {
  125. n123=      if %announce [ $+ [ $address($nick,3) ] ] == $null {
  126. n124=        halt
  127. n125=      }
  128. n126=      .raw PRIVMSG $chan : $+ $chr(91) $+ $nick $+ $chr(93) %announce [ $+ [ $address($nick,3) ] ]
  129. n127=      echo $chan > $chr(91) $+ $nick $+ $chr(93) %announce [ $+ [ $address($nick,3) ] ]
  130. n128=      set %temp %announce [ $+ [ $address($nick,3) ] ]
  131. n129=      unset %announce [ $+ [ $address($nick,3) ] ]
  132. n130=      .timer 1 300 set %announce [ $+ [ $address($nick,3) ] ] %temp
  133. n131=    }
  134. n132=    halt
  135. n133=  }
  136. n134=  if voice isin $level($address($nick,3)) {
  137. n135=    if %voicelist == on {
  138. n136=      mode $chan +v $nick
  139. n137=    }
  140. n138=  }
  141. n139=}
  142. n140=@1:ON KICK:#: {
  143. n141=  if friend isin $level($address($knick,3)) {
  144. n142=    if %fkprot == yes {
  145. n143=      invite $knick $chan
  146. n144=    }
  147. n145=  }
  148. n146=  if %mkp == on {
  149. n147=    if %mkp [ $+ [ $nick ] ] > 0 {
  150. n148=      inc %mkp [ $+ [ $nick ] ] 1
  151. n149=      goto check
  152. n150=    }
  153. n151=    set %mkp [ $+ [ $nick ] ] 1
  154. n152=    timer 1 %mkptime /unset %mkp [ $+ [ $nick ] ]
  155. n153=    :check
  156. n154=    if %mkp [ $+ [ $nick ] ] > %mkpnum {
  157. n155=      unset %mkp [ $+ [ $nick ] ]
  158. n156=      .raw kick $chan $nick :Mass kick, go sit in a corner.
  159. n157=      becho Kicking $nick for mass kicking $chan $+ .
  160. n158=    }
  161. n159=  }
  162. n160=}
  163. n161=@1:ON BAN:#: {
  164. n162=  if %fbprot == yes {
  165. n163=    set %o $ial($banmask,0)
  166. n164=    set %i 0
  167. n165=    :next1
  168. n166=    inc %i 1
  169. n167=    if $ial($banmask,%i).nick ison $chan {
  170. n168=      set %temp1 $ial($banmask,%i).nick
  171. n169=      if friend isin $level($address(%temp1,3)) {
  172. n170=        becho Unbanning protected user on $chan $+ .
  173. n171=        mode $chan -b $banmask
  174. n172=        goto done
  175. n173=      }
  176. n174=    }
  177. n175=    if %i >= %o {
  178. n176=      goto done
  179. n177=    }
  180. n178=    goto next1
  181. n179=    :done
  182. n180=  }
  183. n181=}
  184. n182=@1:ON SERVEROP:#: {
  185. n183=  if %nhp == on {
  186. n184=    mode $chan -oooo $opnick
  187. n185=    becho Deopping server-opped nick on $chan $+ . (Opped from $nick $+ )
  188. n186=  }
  189. n187=}
  190. n188=@1:ON DEOP:#: {
  191. n189=  if %mdp == on {
  192. n190=    if %mdp [ $+ [ $nick ] ] > 0 {
  193. n191=      inc %mdp [ $+ [ $nick ] ] 1
  194. n192=      goto check
  195. n193=    }
  196. n194=    set %mdp [ $+ [ $nick ] ] 1
  197. n195=    timer 1 %mdptime /unset %mdp [ $+ [ $nick ] ]
  198. n196=    :check
  199. n197=    if %mdp [ $+ [ $nick ] ] > %mdpnum {
  200. n198=      unset %mdp [ $+ [ $nick ] ]
  201. n199=      mode $chan -o $nick
  202. n200=      becho Deopping $nick for mass deopping $chan $+ .
  203. n201=    }
  204. n202=  }
  205. n203=}
  206.